NY Times US States Data Analysis
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` regrouping output by 'state' (override with `.groups` argument)
## `summarise()` regrouping output by 'state', 'county' (override with `.groups` argument)
db <- dbConnect(SQLite(), dbname="../COVIDDB/COVID.sqlite3")
shutdown <- dbGetQuery(db, "SELECT * from shutdown;")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
labs(title="Elasped Days from First Confirmed Case(WA)",
x="Delayed in Days",y="US States(and DC",
caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Warning: Removed 5 rows containing missing values (position_stack).
## `summarise()` regrouping output by 'date' (override with `.groups` argument)
## `summarise()` regrouping output by 'date', 'state' (override with `.groups` argument)
Summary of Cases,Deaths and Death Rate by Date
## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
Summary of Cases and Deaths by State
Summary of Ohio Deaths and Cases
statesSum <-us_states %>% group_by(state) %>%
summarise(
tc = sum(cases),
td = sum(deaths))
## `summarise()` ungrouping output (override with `.groups` argument)
ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=tc,col=tc)) +
scale_x_continuous(labels = scales::comma) +
labs(title="Total Cases by States",subtitle="(As of May 18, 2020)",
x="Total Cases",y="US States")

ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=td,col=td)) +
scale_x_continuous(labels = scales::comma) +
labs(title="Total Deaths by States",subtitle="(As of May 18, 2020)",x="Total Deaths",y="US States")

dbDisconnect(db)